home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / packet / terminal / top_152 / src152.exe / rar / TOPOVR4.PAS < prev    next >
Pascal/Delphi Source File  |  1995-05-16  |  2KB  |  72 lines
  1. {┌─────────────────────────────────────────────────────────────────────────┐}
  2. {│                                                                         │}
  3. {│                              T. O. P.                                   │}
  4. {│                                                                         │}
  5. {│                        (T)he  (O)ther  (P)acket                         │}
  6. {│                                                                         │}
  7. {│ Unit:  T O P O V R 4 . P A S                                            │}
  8. {│                                                                         │}
  9. {│                                                                         │}
  10. {│ Programmcode, der aus dem Overlayteil nachgeladen wird                  │}
  11. {└─────────────────────────────────────────────────────────────────────────┘}
  12.  
  13.  
  14. UNIT TOPOVR4;
  15. {$F+,O+}
  16.  
  17. Interface
  18.  
  19. Uses CRT,
  20.      DOS,
  21.      OVERLAY,
  22.  
  23.      TOPEMS,
  24.      TOPXMS,
  25.      TOPDEFS;
  26.  
  27.  
  28. (* Proceduren und Funtionen der TOPREM.PAS *)
  29. Procedure Remote(Kanal : Byte; Art : Integer; CZeile : Str80);
  30. Procedure Send_Prompt(Kanal : Byte; Art : Integer);
  31. Procedure Ch_Dir(Kanal : Byte; Var Zeile : Str80);
  32. Function  REM_Auswert(Kanal, Art : Byte; Komm : Str80) : Byte;
  33. Procedure TNC_Auswert(Kanal : Byte; Var TncKom, Doc : Str20);
  34. Procedure Mk_Dir(Kanal : Byte; var Zeile : Str80);
  35. Procedure Rm_Dir(Kanal : Byte; var Zeile : Str80);
  36. Function  Call_Exist(Kanal,Art : Byte; Zeile : Str9) : Boolean;
  37. Procedure SendToChannel(Kanal,Art,von,bis : Byte; Zeile : Str80);
  38. Procedure Quit(Kanal : Byte);
  39. Function  QSO_Time(Kanal : Byte) : Str20;
  40. Function  Rom_Ready : Boolean;
  41. Procedure REM_HelpLong(Kanal : Byte; IDstr : Str6);
  42. Procedure REM_HelpKurz(Kanal : Byte; IDstr : Str6);
  43. Procedure ComputeRTF(Kanal : Byte; Zeile : Str80);
  44. Procedure WriteRunDat(Kanal : Byte; Zeile : String);
  45. Procedure ReadRunEsc(Kanal : Byte);
  46.  
  47. (* Proceduren und Funtionen der TOPSCROL.PAS *)
  48. Procedure Notiz_Zeigen(Kanal : Byte);
  49. Procedure FileScroll(Kanal : Byte);
  50. Procedure CheckSort(Kanal,Spalte,AnzSp : Byte; Dpos : LongInt; SC : Char);
  51. Procedure OpenDBox(Kanal : Byte);
  52. Procedure CloseDBox(Kanal : Byte);
  53.  
  54.  
  55.  
  56. Implementation
  57.  
  58. Uses  TOPACT,
  59.       TOPACT1,
  60.  
  61.       TOPOVR,
  62.       TOPOVR1,
  63.       TOPOVR2,
  64.       TOPOVR3;
  65.  
  66.  
  67. {$I TOPREM}
  68. {$I TOPSCROL}
  69.  
  70.  
  71. End.
  72.